﻿Imports System.Data
Imports System.Data.Odbc
Imports WSEntidades
Public Class CatCuentasFact
    Public Shared Function Build(ByVal dr As OdbcDataReader) As CatCuentasBE
        Dim tmpCatCuentas As CatCuentasBE = New CatCuentasBE()
        Try
            With tmpCatCuentas
                .Correo = convertDTFromDb.ConvertString(dr.Item("Correo"))
                .Id = convertDTFromDb.convertInt32(dr.Item("Id"))
                .IdServidor = convertDTFromDb.convertInt32(dr.Item("IdServidor"))
                .Nombre = convertDTFromDb.ConvertString(dr.Item("Nombre"))
                .NombreBd = convertDTFromDb.ConvertString(dr.Item("NombreBd"))
                .Rfc = convertDTFromDb.ConvertString(dr.Item("Rfc"))
                .Status = convertDTFromDb.ConvertString(dr.Item("Status"))
                .Telefono = convertDTFromDb.ConvertString(dr.Item("Telefono"))
            End With
            Return tmpCatCuentas
        Catch ex As Exception
            Throw
        Finally
            tmpCatCuentas = Nothing
        End Try
    End Function
End Class
